home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / lib_show / animal / quadrupede.e < prev    next >
Text File  |  1998-12-22  |  245b  |  16 lines
  1. deferred class QUADRUPEDE
  2.  
  3. inherit 
  4.    ANIMAL
  5.       redefine reproduction
  6.       end;
  7.  
  8. feature {ANY}
  9.    
  10.    reproduction(autre: ANIMAL): ANIMAL is
  11.       do
  12.      Result := autre.reproduction_avec_quadrupede(Current);
  13.       end;
  14.    
  15. end -- QUADRUPEDE
  16.